Sub 파일열고닫기()

    Dim 경로 As String
    Dim 파일 As String
    Dim WB As Workbook
    
    With Application.FileDialog(msoFileDialogFolderPicker)
        
        .Title = "예제 파일이 있는 폴더를 선택하세요!"
        
        If .Show = -1 Then   
            
            경로 = .SelectedItems(1) & "\"
    
        End If
    
    End With
    
    If 경로 = "" Then Exit Sub    

    파일 = "파일.xlsx"
    
    Set WB = Workbooks.Open(Filename:=경로 & 파일)
    
        Application.Wait Now + TimeSerial(0, 0, 1)
    
    WB.Close SaveChanges:=False

End Sub